home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
BBS Toolkit
/
BBS Toolkit.iso
/
qbbs
/
rlog110.zip
/
RUNFIRST.BAS
< prev
Wrap
BASIC Source File
|
1990-05-23
|
2KB
|
34 lines
10 DIM Areas(200), Aline(200), ScanAmt(10)
20 CLS
30 PRINT "REMOTLOG, By-Orland K. Carter, 1:135/72 Ver 1.10 05-90"
40 PRINT
50 PRINT "Updating Old Data file to New Data File"
60 PRINT
70 OPEN "I", 3, "REMOTLOG.DAT"
80 FOR A1 = 1 TO 200
90 LINE INPUT #3, LogLine$: Areas(A1) = VAL(LogLine$)
100 NEXT A1
110 FOR A1 = 1 TO 99
120 LINE INPUT #3, LogLine$: Aline(A1) = VAL(LogLine$)
130 NEXT A1
140 INPUT #3, BeginDate$, DOSSHELL, baud0, baud300, baud1200, baud2400, BAUD4800, baud9600, zmodemd, ymodemd, sealinkd, xmodemd, zmodemu, ymodemu, sealinku, xmodemu, Mlocal, Echos, NetMail, incorrectpwd, droppedcarrier, NONAME, chatted, noresponse, _
outsidepage, toomany, ExtChat, logoff, newuser, dwn, up, MAXPWD, DELETED, timeout, timelimit, defficient, dkbytes, dcps
150 CLOSE 3
160 OPEN "O", 3, "REMOTLOG.DAT"
170 FOR A1 = 1 TO 200
180 PRINT #3, Areas(A1)
190 NEXT A1
200 FOR A1 = 1 TO 99
210 PRINT #3, Aline(A1)
220 NEXT A1
230 FOR A1 = 0 TO 10
240 PRINT #3, ScanAmt(A1)
250 NEXT A1
260 WRITE #3, BeginDate$, DOSSHELL, baud0, baud300, baud1200, baud2400, BAUD4800, baud9600, zmodemd, ymodemd, sealinkd, xmodemd, zmodemu, ymodemu, sealinku, xmodemu, Mlocal, Echos, NetMail, incorrectpwd, droppedcarrier, NONAME, chatted, noresponse, _
outsidepage, toomany, ExtChat, logoff, newuser, dwn, up, MAXPWD, DELETED, timeout, timelimit, defficient, dkbytes, dcps
270 CLOSE 3
280 PRINT
290 PRINT "Update complete. Please Delete RunFirst at this time it does nothing more."
300 END